home *** CD-ROM | disk | FTP | other *** search
/ Info-Mac 4 / Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso / Science / RLaB / rlib / isempty.r < prev    next >
Text File  |  1994-04-25  |  431b  |  19 lines
  1. //------------------------------------------------------------------
  2. //
  3. // isempty(A)
  4. //
  5. // Syntax: isempty(A)
  6. //
  7. //         Returns 1 if A is empty.
  8. //         Returns 0 if the matrix has any elements.
  9. //
  10. //         isempty will work on list-objects as well as matrices.
  11. //
  12. // Original Author: Jeff Layton 
  13. //------------------------------------------------------------------
  14.  
  15. isempty = function(A)
  16. {
  17.   return !all (size (A));
  18. };
  19.